program testsimplekeybd;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, simplekeybd, fpg_base, fpg_main;


procedure MainProc;
begin
  fpgApplication.Initialize;
  try
    ScreenKeyboard := TSimpleKeyboard.Create(fpgApplication);

    // Note:  This needs improving!!
    fpgApplication.MainForm := ScreenKeyboard;
    ScreenKeyboard.Show;

    fpgApplication.Run;


  finally
    ScreenKeyboard.Free;
  end;
end;

begin
  MainProc;
end.